Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_129657.txt

Text File | 1990-08-14 | 6.6 KB | 396 lines

-- card: 129657 from stack: in
-- bmap block id: 130026
-- flags: 4000
-- background id: 14625
-- name:
----- HyperTalk script -----
on doMenu menuItem
  if menuItem is "Reserve" then
    show card field "Reserved"
  else pass doMenu
end doMenu

on groupThree
  repeat with index = 3 to 14
    set hilite of card button id index to false
  end repeat
  set hilite of target to true
end groupThree

on resetCard
  set hilite of card button id 3 to true
  repeat with index = 4 to 14
    set hilite of card button id index to false
  end repeat
  hide card field "Reserved"
end resetCard


-- part 15 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=225 top=189 right=201 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reserved


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=31 right=46 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 5068 / 5068
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseDown
  set icon of me to "Close Box Hi"
end mouseDown

on mouseLeave
  set icon of me to "Close Box"
end mouseLeave

on mouseUp
  set icon of me to "Close Box"
  lock screen
  resetCard
  pop card
  unlock screen
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=117 top=92 right=131 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=117 top=134 right=173 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=117 top=176 right=215 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=117 top=218 right=257 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=92 right=131 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=134 right=173 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=176 right=215 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=218 right=257 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=92 right=131 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=134 right=173 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=176 right=215 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=218 right=257 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  groupThree
end mouseUp



-- part contents for background part 19
----- text -----
12
12
12
12
12
11
12
12

-- part contents for background part 20
----- text -----
47
80
53
54
52
102
48
13

-- part contents for background part 21
----- text -----
Abrosimoff, Michael John
Adams, Bryan
Alexander, Rick
 Alexander, Susan
Allsop, Blair M.
Azimov, Isaac
 Barisoff, Larissa
Bunyan, Paul



-- part contents for background part 22
----- text -----
Industrial
Academic
Academic
Academic
Academic
Academic
Academic
Commercial

-- part contents for background part 23
----- text -----
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0

-- part contents for background part 24
----- text -----
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0

-- part contents for background part 25
----- text -----
12.0
12.0
12.0
12.0
12.0
12.0
12.0
12.0

-- part contents for card part 15
----- text -----
RESERVED